home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / Me-Mz / MH Power Scripts v1.3.cpt / MH Power Scripts v1.3 / card_2998.txt < prev    next >
Text File  |  1988-05-06  |  5KB  |  196 lines
  1. -- card: 2998 from stack: in.3
  2. -- bmap block id: 9577
  3. -- flags: 4000
  4. -- background id: 2663
  5. -- name: Browsing Arrows
  6.  
  7.  
  8. -- part 3 (button)
  9. -- low flags: 80
  10. -- high flags: 4000
  11. -- rect: left=373 top=77 right=88 bottom=413
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: HILIGHTER
  20.  
  21.  
  22. -- part 8 (button)
  23. -- low flags: 00
  24. -- high flags: 2000
  25. -- rect: left=47 top=192 right=205 bottom=116
  26. -- title width / last selected line: 0
  27. -- icon id / first selected line: 0 / 0
  28. -- text alignment: 1
  29. -- font id: 0
  30. -- text size: 12
  31. -- style flags: 0
  32. -- line height: 16
  33. -- part name: New Button
  34. ----- HyperTalk script -----
  35. on mouseUp
  36.   edit script of this background
  37. end mouseUp
  38.  
  39.  
  40.  
  41. -- part 9 (field)
  42. -- low flags: 01
  43. -- high flags: 0004
  44. -- rect: left=342 top=246 right=288 bottom=508
  45. -- title width / last selected line: 0
  46. -- icon id / first selected line: 0 / 0
  47. -- text alignment: 0
  48. -- font id: 3
  49. -- text size: 10
  50. -- style flags: 0
  51. -- line height: 12
  52. -- part name: 
  53.  
  54.  
  55. -- part 10 (field)
  56. -- low flags: 01
  57. -- high flags: 0004
  58. -- rect: left=277 top=65 right=236 bottom=507
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 3
  63. -- text size: 10
  64. -- style flags: 0
  65. -- line height: 12
  66. -- part name: 
  67.  
  68.  
  69. -- part 13 (button)
  70. -- low flags: 00
  71. -- high flags: A000
  72. -- rect: left=287 top=17 right=63 bottom=342
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 1016 / 1016
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: Card 5
  81. ----- HyperTalk script -----
  82. on mouseDown
  83.   Global PrevID, NextID
  84.   put the ID of the target into PrevID
  85.   put first word of the name of the target into StackLocation
  86.  
  87.   visual effect scroll right
  88.   --go to previous card
  89.   go to previous card of this background
  90.  
  91.   put "Card" && the number of this card into NewPrevName
  92.   put "of" && the number of cards into NewNextName
  93.  
  94.  
  95.   set the name of the target to NewPrevName
  96.  
  97.   if NextID is empty then exit mouseDown
  98.   if StackLocation is "Card" then
  99.     set the name of card button ID NextID to NewNextName
  100.   else
  101.     set the name of background button ID NextID to NewNextName
  102.   end if
  103.  
  104. end mouseDown
  105.  
  106. on mouseStillDown
  107.   mouseDown
  108. end mouseStillDown
  109.  
  110.  
  111. -- part 14 (button)
  112. -- low flags: 00
  113. -- high flags: A000
  114. -- rect: left=341 top=17 right=63 bottom=396
  115. -- title width / last selected line: 0
  116. -- icon id / first selected line: 32650 / 32650
  117. -- text alignment: 1
  118. -- font id: 0
  119. -- text size: 12
  120. -- style flags: 0
  121. -- line height: 16
  122. -- part name: of 17
  123. ----- HyperTalk script -----
  124. on mouseDown
  125.   Global PrevID, NextID
  126.   put the ID of the target into NextID
  127.   put first word of the name of the target into StackLocation
  128.  
  129.   visual effect scroll left
  130.   --go to next card
  131.   go to next card of this background
  132.  
  133.   put "Card" && the number of this card into NewPrevName
  134.   put "of" && the number of cards into NewNextName
  135.  
  136.  
  137.   set the name of the target to NewNextName
  138.  
  139.   if PrevID is empty then exit mouseDown
  140.   if StackLocation is "Card" then
  141.     set the name of card button ID PrevID to NewPrevName
  142.   else
  143.     set the name of background button ID PrevID to NewPrevName
  144.   end if
  145.  
  146. end mouseDown
  147.  
  148. on mouseStillDown
  149.   mouseDown
  150. end mouseStillDown
  151.  
  152.  
  153. -- part 15 (button)
  154. -- low flags: 00
  155. -- high flags: 2000
  156. -- rect: left=368 top=270 right=283 bottom=437
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: New Button
  165. ----- HyperTalk script -----
  166. on mouseUp
  167.   edit script of this background
  168. end mouseUp
  169.  
  170.  
  171.  
  172. -- part contents for background part 8
  173. ----- text -----
  174. Card 9 of 20
  175.  
  176. -- part contents for background part 9
  177. ----- text -----
  178. BROWSING ARROWS
  179.  
  180. These arrow will take you through each card in the stack.  These arrows will continue from card to card if you keep the mouse button held down.
  181.  
  182. As you go from card to card, the names of the buttons, which show the number of this card and the number of cards, also change.  
  183.  
  184.  
  185. Another way to keep track of the card numbers of the cards, is to put a field on the card (below) and use a script for the background.  See the script 'On OpenCard' located in the script of the background.  If you choose to use this alternative, you will be using up disk space because every card will have a field with this information in it.
  186.  
  187. -- part contents for card part 10
  188. ----- text -----
  189. Note:  The arrow buttons above are currently set to work on any stack by simply pasting them on to any background.  NO OTHER SCRIPTING IS NECESSARY, but because of their programming, you would have to click on both buttons to register their ID numbers to get them both working.  A better alternative is to use the buttons and scripts below.
  190.  
  191. NOTE: The above buttons will not work now because they are not pasted on the background.
  192.  
  193. -- part contents for card part 9
  194. ----- text -----
  195. The arrow buttons below, use a script located in the background (see "on opencard")
  196.